home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / radar < prev    next >
Text File  |  1999-06-15  |  1KB  |  32 lines
  1. Category: UnPlugged
  2. Title: UnPlugged Radar...
  3. Copyright: ©1997/1998 Martijn W. van der Lee. UnPlugged site: http://members.xoom.com/rambo
  4. Author: Martijn W. van der Lee (mwvdlee@open.net)
  5. Filename: radar.8bf
  6.  
  7. R:put((m%(ctl(6)*X/255)==0)||((d+128)%256==0)||(x==X/2)||(y==Y/2),0),((c2d(r2x(c2d(x-X/2,y-Y/2)+(255-ctl(0)*4),c2m(x-X/2,y-Y/2)),r2y(c2d(x-X/2,y-Y/2)+(255-ctl(0)*4),c2m(x-X/2,y-Y/2)))*63/(256-ctl(1))+(r*ctl(2)/63))*ctl(3)/255)+(get(0)*(ctl(7)*2)*ctl(3)/255)
  8.  
  9. G:((c2d(r2x(c2d(x-X/2,y-Y/2)+(255-ctl(0)*4),c2m(x-X/2,y-Y/2)),r2y(c2d(x-X/2,y-Y/2)+(255-ctl(0)*4),c2m(x-X/2,y-Y/2)))*63/(256-ctl(1))+(g*ctl(2)/63))*ctl(4)/255)+(get(0)*(ctl(7)*2)*ctl(4)/255)
  10.  
  11. B:((c2d(r2x(c2d(x-X/2,y-Y/2)+(255-ctl(0)*4),c2m(x-X/2,y-Y/2)),r2y(c2d(x-X/2,y-Y/2)+(255-ctl(0)*4),c2m(x-X/2,y-Y/2)))*63/(256-ctl(1))+(b*ctl(2)/63))*ctl(5)/255)+(get(0)*(ctl(7)*2)*ctl(5)/255)
  12.  
  13. A:a
  14.  
  15. ctl[0]: Beam angle:
  16. ctl[1]: Beam brightness:
  17. ctl[2]: Signal brightness:
  18. ctl[3]: Red level:
  19. ctl[4]: Green level:
  20. ctl[5]: Blue level:
  21. ctl[6]: Line density:
  22. ctl[7]: Line intensity:
  23.  
  24. val[0]: 100
  25. val[1]: 69
  26. val[2]: 32
  27. val[3]: 255
  28. val[4]: 255
  29. val[5]: 0
  30. val[6]: 4
  31. val[7]: 64
  32.